home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / system / 387sxbug.zip / 387SXBUG.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-21  |  1KB  |  44 lines
  1. { Turbo Pascal 5.5 source code }
  2.  
  3. {$A-,B-,D-,E-,F+,I-,L-,N+,O-,R-,S-,V-}
  4. {$M 1024,0,0}
  5.  
  6. VAR
  7.   x: Extended;
  8.  
  9. PROCEDURE CheckError;
  10. BEGIN
  11.   IF ExitCode=205 THEN BEGIN
  12.     Writeln(#13'System responds as expected. Problem not found.');
  13.     ErrorAddr:=nil;
  14.     ExitCode:=0
  15.   END
  16. END;
  17.  
  18. BEGIN
  19.   WriteLn;
  20.   WriteLn('There seem to be quite a number of 80386sx machines equiped with');
  21.   WriteLn('an Intel 80387sx mathematical co-processor  that show an unusual');
  22.   WriteLn('behaviour: these systems crash under specific circumstances that');
  23.   WriteLn('don''t cause crashes on other computers.');
  24.   WriteLn;
  25.   WriteLn('This program tests your system. Be warned, especially when using');
  26.   WriteLn('a multitasker, that a cold boot might be necessary after running');
  27.   WriteLn('the program. Use it at your own risk.');
  28.   WriteLn;
  29.   WriteLn('Email');
  30.   WriteLn('Bitnet:    Haket@HDETUD52 / Verheijen@HDETUD52');
  31.   WriteLn('Internet:  Haket@tudsv1.tudelft.nl / Verheijen@tudsv1.tudelft.nl');
  32.   WriteLn('Fidonet:   Arno Haket  2:512/100.15');
  33.   WriteLn;
  34.   Write('<Enter> to continue, <Ctrl-C> to stop...');
  35.   ReadLn;
  36.   WriteLn;
  37.   IF Test8087<>3 THEN WriteLn('80387 co-processor not detected.')
  38.   ELSE BEGIN
  39.     ExitProc:=@CheckError;
  40.     Write('System crashed! Hardware bug found...');
  41.     x:=Exp(11357)
  42.   END
  43. END.
  44.